Inter.Net 55-1/Inter.Net 55-1.iso/CBuilder/Setup/BCB/data.z/adru1.dfm/adru1.txt

Text File | 1998-02-09 | 16.0 KB | 768 lines

object Form1: TForm1
  Left = 190
  Top = 112
  Width = 548
  Height = 450
  Caption = 'Customer Contact Info Browser'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Default'
  Font.Style = []
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object TabControl1: TTabControl
    Left = 0
    Top = 0
    Width = 540
    Height = 423
    Align = alClient
    TabIndex = 0
    TabOrder = 0
    Tabs.Strings = (
      'A'
      'B'
      'C'
      'D'
      'E'
      'F'
      'G'
      'H'
      'I'
      'J'
      'K'
      'L'
      'M'
      'N'
      'O'
      'P'
      'Q'
      'R'
      'S'
      'T'
      'U'
      'V'
      'W'
      'X'
      'Y'
      'Z')
    OnChange = TabControl1Change
    object Label1: TLabel
      Left = 16
      Top = 66
      Width = 50
      Height = 13
      Caption = 'Address &1:'
      FocusControl = dbeAddr1
    end
    object Label2: TLabel
      Left = 16
      Top = 106
      Width = 50
      Height = 13
      Caption = 'Address &2:'
      FocusControl = dbeAddr2
    end
    object Label3: TLabel
      Left = 16
      Top = 26
      Width = 71
      Height = 13
      Caption = 'Contact &Name:'
      FocusControl = dbeContactName
    end
    object Label4: TLabel
      Left = 16
      Top = 146
      Width = 20
      Height = 13
      Caption = 'C&ity:'
      FocusControl = dbeCity
    end
    object Label5: TLabel
      Left = 144
      Top = 146
      Width = 28
      Height = 13
      Caption = '&State:'
      FocusControl = dbeState
    end
    object Label6: TLabel
      Left = 204
      Top = 146
      Width = 46
      Height = 13
      Caption = '&Zip Code:'
      FocusControl = dbeZip
    end
    object Label7: TLabel
      Left = 144
      Top = 26
      Width = 47
      Height = 13
      Caption = '&Company:'
      FocusControl = dbeCompany
    end
    object Label8: TLabel
      Left = 300
      Top = 146
      Width = 39
      Height = 13
      Caption = 'Co&untry:'
      FocusControl = dbeCountry
    end
    object Label9: TLabel
      Left = 288
      Top = 26
      Width = 87
      Height = 13
      Caption = 'Customer &Number:'
      FocusControl = dbeCustomerNumber
    end
    object Label11: TLabel
      Left = 400
      Top = 26
      Width = 34
      Height = 13
      Caption = '&Phone:'
      FocusControl = dbePhone
    end
    object Label12: TLabel
      Left = 400
      Top = 66
      Width = 20
      Height = 13
      Caption = 'Fa&x:'
      FocusControl = dbeFax
    end
    object Label10: TLabel
      Left = 400
      Top = 106
      Width = 87
      Height = 13
      Caption = 'Last &Invoice Date:'
      FocusControl = dbeLastInvDate
    end
    object Label13: TLabel
      Left = 400
      Top = 146
      Width = 47
      Height = 13
      Caption = 'Tax &Rate:'
      FocusControl = dbeTaxRate
    end
    object CancelCust: TSpeedButton
      Left = 324
      Top = 388
      Width = 47
      Height = 25
      Caption = 'Cancel'
      Enabled = False
      OnClick = CancelCustClick
    end
    object PostCust: TSpeedButton
      Left = 277
      Top = 388
      Width = 47
      Height = 25
      Caption = 'Post'
      Enabled = False
      OnClick = PostCustClick
    end
    object EditCust: TSpeedButton
      Left = 230
      Top = 388
      Width = 47
      Height = 25
      Caption = 'Edit'
      OnClick = EditCustClick
    end
    object LastCust: TSpeedButton
      Left = 172
      Top = 388
      Width = 47
      Height = 25
      Caption = 'Last >>'
      OnClick = LastCustClick
    end
    object NextCust: TSpeedButton
      Left = 125
      Top = 388
      Width = 47
      Height = 25
      Caption = 'Next >'
      OnClick = NextCustClick
    end
    object PriorCust: TSpeedButton
      Left = 77
      Top = 388
      Width = 47
      Height = 25
      Caption = '< Prior'
      OnClick = PriorCustClick
    end
    object FirstCust: TSpeedButton
      Left = 30
      Top = 388
      Width = 47
      Height = 25
      Caption = '<< First'
      OnClick = FirstCustClick
    end
    object dbeAddr1: TDBEdit
      Left = 16
      Top = 82
      Width = 377
      Height = 21
      DataField = 'Addr1'
      DataSource = DataSource1
      TabOrder = 0
    end
    object dbeAddr2: TDBEdit
      Left = 16
      Top = 122
      Width = 377
      Height = 21
      DataField = 'Addr2'
      DataSource = DataSource1
      TabOrder = 1
    end
    object dbeContactName: TDBEdit
      Left = 16
      Top = 42
      Width = 121
      Height = 21
      DataField = 'contact'
      DataSource = DataSource1
      TabOrder = 2
    end
    object dbeCity: TDBEdit
      Left = 16
      Top = 162
      Width = 121
      Height = 21
      DataField = 'City'
      DataSource = DataSource1
      TabOrder = 3
    end
    object dbeState: TDBEdit
      Left = 144
      Top = 162
      Width = 53
      Height = 21
      DataField = 'State'
      DataSource = DataSource1
      TabOrder = 4
    end
    object dbeZip: TDBEdit
      Left = 204
      Top = 162
      Width = 89
      Height = 21
      DataField = 'Zip'
      DataSource = DataSource1
      TabOrder = 5
    end
    object dbeCustomerNumber: TDBEdit
      Left = 288
      Top = 42
      Width = 105
      Height = 21
      DataField = 'CustNo'
      DataSource = DataSource1
      ReadOnly = True
      TabOrder = 6
    end
    object dbeCompany: TDBEdit
      Left = 144
      Top = 42
      Width = 137
      Height = 21
      DataField = 'Company'
      DataSource = DataSource1
      TabOrder = 7
    end
    object dbeCountry: TDBEdit
      Left = 300
      Top = 162
      Width = 93
      Height = 21
      DataField = 'Country'
      DataSource = DataSource1
      TabOrder = 8
    end
    object dbePhone: TDBEdit
      Left = 400
      Top = 42
      Width = 121
      Height = 21
      DataField = 'Phone'
      DataSource = DataSource1
      TabOrder = 9
    end
    object dbeFax: TDBEdit
      Left = 400
      Top = 82
      Width = 121
      Height = 21
      DataField = 'FAX'
      DataSource = DataSource1
      TabOrder = 10
    end
    object BitBtn1: TBitBtn
      Left = 440
      Top = 386
      Width = 85
      Height = 25
      Hint = 'Done!'
      Caption = '&Finished >'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 11
      OnClick = BitBtn1Click
    end
    object dbeLastInvDate: TDBEdit
      Left = 400
      Top = 122
      Width = 121
      Height = 21
      DataField = 'LastInvoiceDate'
      DataSource = DataSource1
      TabOrder = 12
    end
    object dbeTaxRate: TDBEdit
      Left = 400
      Top = 162
      Width = 101
      Height = 21
      DataField = 'TaxRate'
      DataSource = DataSource1
      TabOrder = 13
    end
    object GroupBox1: TGroupBox
      Left = 16
      Top = 186
      Width = 509
      Height = 195
      Caption = 'Orders'
      TabOrder = 14
      object Label14: TLabel
        Left = 14
        Top = 20
        Width = 87
        Height = 13
        Caption = 'Customer Number:'
      end
      object Label15: TLabel
        Left = 322
        Top = 28
        Width = 89
        Height = 13
        Caption = 'Employee Number:'
      end
      object Label16: TLabel
        Left = 244
        Top = 20
        Width = 50
        Height = 13
        Caption = 'Sale Date:'
      end
      object Label17: TLabel
        Left = 174
        Top = 20
        Width = 50
        Height = 13
        Caption = 'Ship Date:'
      end
      object Label18: TLabel
        Left = 110
        Top = 20
        Width = 46
        Height = 13
        Caption = 'Order No:'
      end
      object Label19: TLabel
        Left = 364
        Top = 106
        Width = 47
        Height = 13
        Caption = 'Tax Rate:'
      end
      object Label20: TLabel
        Left = 364
        Top = 162
        Width = 50
        Height = 13
        Caption = 'Item Total:'
      end
      object Label21: TLabel
        Left = 348
        Top = 80
        Width = 63
        Height = 13
        Caption = 'Amount Paid:'
      end
      object Label22: TLabel
        Left = 330
        Top = 52
        Width = 83
        Height = 13
        Caption = 'Payment Method:'
      end
      object Label23: TLabel
        Left = 376
        Top = 136
        Width = 35
        Height = 13
        Caption = 'Freight:'
      end
      object Label24: TLabel
        Left = 14
        Top = 100
        Width = 75
        Height = 13
        Caption = 'Dest Address 2:'
      end
      object Label25: TLabel
        Left = 14
        Top = 70
        Width = 75
        Height = 13
        Caption = 'Dest Address 1:'
      end
      object Label26: TLabel
        Left = 14
        Top = 120
        Width = 45
        Height = 13
        Caption = 'Dest City:'
      end
      object Label27: TLabel
        Left = 144
        Top = 120
        Width = 53
        Height = 13
        Caption = 'Dest State:'
      end
      object Label28: TLabel
        Left = 216
        Top = 120
        Width = 43
        Height = 13
        Caption = 'Dest Zip:'
      end
      object FirstOrders: TSpeedButton
        Left = 14
        Top = 162
        Width = 47
        Height = 25
        Caption = '<< First'
        OnClick = FirstOrdersClick
      end
      object PriorOrders: TSpeedButton
        Left = 61
        Top = 162
        Width = 47
        Height = 25
        Caption = '< Prior'
        OnClick = PriorOrdersClick
      end
      object NextOrders: TSpeedButton
        Left = 109
        Top = 162
        Width = 47
        Height = 25
        Caption = 'Next >'
        OnClick = NextOrdersClick
      end
      object LastOrders: TSpeedButton
        Left = 156
        Top = 162
        Width = 47
        Height = 25
        Caption = 'Last >>'
        OnClick = LastOrdersClick
      end
      object EditOrders: TSpeedButton
        Left = 214
        Top = 162
        Width = 47
        Height = 25
        Caption = 'Edit'
        OnClick = EditOrdersClick
      end
      object PostOrders: TSpeedButton
        Left = 261
        Top = 162
        Width = 47
        Height = 25
        Caption = 'Post'
        Enabled = False
        OnClick = PostOrdersClick
      end
      object CancelOrders: TSpeedButton
        Left = 308
        Top = 162
        Width = 47
        Height = 25
        Caption = 'Cancel'
        Enabled = False
        OnClick = CancelOrdersClick
      end
      object DBEdit1: TDBEdit
        Left = 14
        Top = 36
        Width = 87
        Height = 21
        DataField = 'CustNo'
        DataSource = DataSource2
        ReadOnly = True
        TabOrder = 0
      end
      object DBEdit2: TDBEdit
        Left = 418
        Top = 22
        Width = 81
        Height = 21
        DataField = 'EmpNo'
        DataSource = DataSource2
        TabOrder = 1
      end
      object DBEdit3: TDBEdit
        Left = 418
        Top = 128
        Width = 81
        Height = 21
        DataField = 'Freight'
        DataSource = DataSource2
        TabOrder = 2
      end
      object DBEdit4: TDBEdit
        Left = 418
        Top = 156
        Width = 81
        Height = 21
        DataField = 'ItemsTotal'
        DataSource = DataSource2
        TabOrder = 3
      end
      object DBEdit5: TDBEdit
        Left = 244
        Top = 36
        Width = 61
        Height = 21
        DataField = 'SaleDate'
        DataSource = DataSource2
        TabOrder = 4
      end
      object DBEdit6: TDBEdit
        Left = 174
        Top = 36
        Width = 61
        Height = 21
        DataField = 'ShipDate'
        DataSource = DataSource2
        TabOrder = 5
      end
      object DBEdit7: TDBEdit
        Left = 418
        Top = 100
        Width = 81
        Height = 21
        DataField = 'TaxRate'
        DataSource = DataSource2
        TabOrder = 6
      end
      object DBEdit8: TDBEdit
        Left = 418
        Top = 74
        Width = 81
        Height = 21
        DataField = 'AmountPaid'
        DataSource = DataSource2
        TabOrder = 7
      end
      object DBEdit9: TDBEdit
        Left = 418
        Top = 48
        Width = 81
        Height = 21
        DataField = 'PaymentMethod'
        DataSource = DataSource2
        TabOrder = 8
      end
      object DBEdit10: TDBEdit
        Left = 110
        Top = 36
        Width = 55
        Height = 21
        DataField = 'OrderNo'
        DataSource = DataSource2
        TabOrder = 9
      end
      object DBEdit11: TDBEdit
        Left = 96
        Top = 66
        Width = 209
        Height = 21
        DataField = 'ShipToAddr1'
        DataSource = DataSource2
        TabOrder = 10
      end
      object DBEdit12: TDBEdit
        Left = 96
        Top = 96
        Width = 209
        Height = 21
        DataField = 'ShipToAddr2'
        DataSource = DataSource2
        TabOrder = 11
      end
      object DBEdit13: TDBEdit
        Left = 14
        Top = 136
        Width = 121
        Height = 21
        DataField = 'ShipToCity'
        DataSource = DataSource2
        TabOrder = 12
      end
      object DBEdit14: TDBEdit
        Left = 144
        Top = 136
        Width = 63
        Height = 21
        DataField = 'ShipToState'
        DataSource = DataSource2
        TabOrder = 13
      end
      object DBEdit15: TDBEdit
        Left = 216
        Top = 136
        Width = 89
        Height = 21
        DataField = 'ShipToZip'
        DataSource = DataSource2
        TabOrder = 14
      end
    end
  end
  object DataSource1: TDataSource
    AutoEdit = False
    DataSet = Query1
    OnStateChange = DataSource1StateChange
    Left = 462
    Top = 42
  end
  object Query1: TQuery
    DatabaseName = 'BCDEMOS'
    RequestLive = True
    SQL.Strings = (

        'select * from "customer.db" where UPPER(contact) like :paramVar1' +
        ' ')
    Params.Data = {0100010009706172616D56617231000103004125000001}
    Left = 492
    Top = 42
  end
  object DataSource2: TDataSource
    AutoEdit = False
    DataSet = Table1
    OnStateChange = DataSource2StateChange
    Left = 468
    Top = 194
  end
  object Table1: TTable
    DatabaseName = 'BCDEMOS'
    IndexName = 'CustNo'
    MasterFields = 'CustNo'
    MasterSource = DataSource1
    TableName = 'ORDERS.DB'
    Left = 496
    Top = 194
    object Table1OrderNo: TFloatField
      FieldName = 'OrderNo'
      DisplayFormat = #39'#'#39'0000'
    end
    object Table1CustNo: TFloatField
      Alignment = taLeftJustify
      FieldName = 'CustNo'
      DisplayFormat = 'CN 0000'
      MaxValue = 9999
      MinValue = 1000
    end
    object Table1SaleDate: TDateTimeField
      FieldName = 'SaleDate'
    end
    object Table1ShipDate: TDateTimeField
      FieldName = 'ShipDate'
    end
    object Table1EmpNo: TIntegerField
      FieldName = 'EmpNo'
      DisplayFormat = 'Emp'#39'#'#39' 0000'
      MaxValue = 9999
      MinValue = 1
    end
    object Table1ShipToContact: TStringField
      FieldName = 'ShipToContact'
    end
    object Table1ShipToAddr1: TStringField
      FieldName = 'ShipToAddr1'
      Size = 30
    end
    object Table1ShipToAddr2: TStringField
      FieldName = 'ShipToAddr2'
      Size = 30
    end
    object Table1ShipToCity: TStringField
      FieldName = 'ShipToCity'
      Size = 15
    end
    object Table1ShipToState: TStringField
      FieldName = 'ShipToState'
    end
    object Table1ShipToZip: TStringField
      FieldName = 'ShipToZip'
      Size = 10
    end
    object Table1ShipToCountry: TStringField
      FieldName = 'ShipToCountry'
    end
    object Table1ShipToPhone: TStringField
      FieldName = 'ShipToPhone'
      Size = 15
    end
    object Table1ShipVIA: TStringField
      FieldName = 'ShipVIA'
      Size = 7
    end
    object Table1PO: TStringField
      FieldName = 'PO'
      Size = 15
    end
    object Table1Terms: TStringField
      FieldName = 'Terms'
      Size = 6
    end
    object Table1PaymentMethod: TStringField
      FieldName = 'PaymentMethod'
      Size = 7
    end
    object Table1ItemsTotal: TCurrencyField
      FieldName = 'ItemsTotal'
    end
    object Table1TaxRate: TFloatField
      FieldName = 'TaxRate'
      DisplayFormat = '0.00%'
    end
    object Table1Freight: TCurrencyField
      FieldName = 'Freight'
    end
    object Table1AmountPaid: TCurrencyField
      FieldName = 'AmountPaid'
    end
  end
end